ByRef filename As String)Dim ms As IO.MemoryStream = RenderDataTableToExcel(dt)Web.HttpContext.Current.Response.ContentType = application/vnd.ms-excelWeb.HttpContext.Current.Response.ContentEncoding = Encoding.GetEncoding(UTF-8)Web.HttpContext.Current.Response.AddHeader(Content-Disposition， String.Format(attachment; filename= filename ))Web.HttpContext.Current.Response.BinaryWrite(ms.ToArray())ms.Close()ms.Dispose()End Sub ， 1.必需先到NPOI的官网下载2.0以上版本() 2.将下载返来的dll插手参考 Private Function RenderDataTableToExcel(ByRef SourceTable As DataTable) As StreamDim workbook As HSSFWorkbook = New HSSFWorkbook()Dim ms As MemoryStream = New MemoryStream()Dim sheet As HSSFSheet = workbook.CreateSheet()Dim headerRow As HSSFRow = sheet.CreateRow(0)For Each column As DataColumn In SourceTable.ColumnsheaderRow.CreateCell(column.Ordinal).SetCellValue(column.ColumnName)NextDim rowIndex As Int32 = 1For Each row As DataRow In SourceTable.RowsDim dataRow As HSSFRow = sheet.CreateRow(rowIndex)For Each column2 As DataColumn In SourceTable.ColumnsdataRow.CreateCell(column2.Ordinal).SetCellValue(row(column2).ToString)NextrowIndex = rowIndex + 1Nextworkbook.Write(ms)ms.Flush()ms.Position = 0sheet = NothingheaderRow = Nothingworkbook = NothingReturn msEnd FunctionPublic Overridable Sub DataTableToExcel(ByRef dt As DataTable，。